This sample code shows the use of the PrintOut Method (Report Object). Modify the following sample code to fit your needs.
Dim crystalreport As CRPEAuto.Report
Dim repView As CRPEAuto.View
Dim test As Integer
Dim crwApplication As CRPEAuto.Application
Private Sub Command1_Click()
'prints view
Set crwApplication = CreateObject("Crystal.CRPE.Application")
Set crystalreport = crwApplication.OpenReport _
("c:\crw\reports\xtreme\wwsales.rpt")
crystalreport.PrintWindowOptions.CanDrillDown = True
Set repView = crystalreport.Preview
'print view
repView.PrintOut
End Sub
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |